home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / clisp_c.zoo / format.fas < prev    next >
Text File  |  1993-06-05  |  48KB  |  889 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #307Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C 5B D9 6B 04 00 30
  5.          9C DA 2F 5F DB 2F 5F DC 2D 01 DC DD 30 96 DE 2F 5F DF 2F 5F E0 2D 01
  6.          E0 E1 30 96 E2 2F 5F E3 2F 5F E4 2D 01 E4 E5 30 96 E6 2F 5F E7 2F 5F
  7.          E8 2D 01 E8 E9 30 96 5D 16 2F 5F 5D 17 2F 5F 5D 18 2D 01 5D 18 5D 19
  8.          30 96 5D 1A 2F 5F 5D 1B 2F 5F 5D 1C 2D 01 5D 1C 5D 1D 30 96 5D 1E 2F
  9.          5F 5D 1F 2F 5F 5D 20 2D 01 5D 20 5D 21 30 96 5D 22 2F 5F 5D 23 2F 5F
  10.          5D 24 2D 01 5D 24 5D 25 30 96 DC 5D 26 5D 27 03 28 72 30 9C DC 5D 29
  11.          5B 2B 03 2A E0 5D 26 5D 27 03 2B 72 30 9C E0 5D 29 5B 2B 03 2A E4 5D
  12.          26 5D 27 03 2C 72 30 9C E4 5D 29 5B 2B 03 2A E8 5D 26 5D 27 03 2D 72
  13.          30 9C E8 5D 29 5B 2B 03 2A 5D 18 5D 26 5D 27 03 2E 72 30 9C 5D 18 5D
  14.          29 5B 2B 03 2A 5D 1C 5D 26 5D 27 03 2F 72 30 9C 5D 1C 5D 29 5B 2B 03
  15.          2A 5D 20 5D 26 5D 27 03 30 72 30 9C 5D 20 5D 29 5B 2B 03 2A 5D 24 5D
  16.          26 5D 27 03 31 72 30 9C 5D 24 5D 29 5B 2B 03 2A D7 5D 32 5B 2B 03 2A
  17.          D7 5D 33 30 9D C1 19 01
  18.         )
  19.    MAKE-CSD REMOVE-OLD-DEFINITIONS
  20.    #Y(MAKE-CSD
  21.       #61Y(00 00 00 00 00 01 D4 D5 6A 55 D4 A9 D6 D7 30 54 D4 A9 D8 D7 30 54 D4
  22.            A9 D9 5B 30 54 D4 A9 DA 5B 30 54 D4 A9 DB 5B 30 54 D4 A9 DC 5B 30 54
  23.            D4 A9 DD 5B 30 54 D4 A9 DE 5B 30 54 15 19 01
  24.           )
  25.       CONTROL-STRING-DIRECTIVE 9. 1. 0. 2. 3. 4. 5. 6. 7. 8.
  26.      )
  27.    CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION
  28.    ((TYPE 1. 0. FIXNUM NIL) (CS-INDEX 2. 0. FIXNUM NIL)
  29.     (PARM-LIST 3. NIL LIST NIL) (V-OR-#-P 4. NIL SYMBOL NIL)
  30.     (COLON-P 5. NIL SYMBOL NIL) (ATSIGN-P 6. NIL SYMBOL NIL)
  31.     (DATA 7. NIL T NIL) (CLAUSE-CHAIN 8. NIL T NIL)
  32.    )
  33.    (FUNCTION CSD-TYPE (CONTROL-STRING-DIRECTIVE) FIXNUM) (INLINE CSD-TYPE)
  34.    CSD-TYPE
  35.    #Y(CSD-TYPE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  36.       CONTROL-STRING-DIRECTIVE 1.
  37.      )
  38.    (FUNCTION CSD-CS-INDEX (CONTROL-STRING-DIRECTIVE) FIXNUM)
  39.    (INLINE CSD-CS-INDEX) CSD-CS-INDEX
  40.    #Y(CSD-CS-INDEX #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  41.       CONTROL-STRING-DIRECTIVE 2.
  42.      )
  43.    (FUNCTION CSD-PARM-LIST (CONTROL-STRING-DIRECTIVE) LIST)
  44.    (INLINE CSD-PARM-LIST) CSD-PARM-LIST
  45.    #Y(CSD-PARM-LIST #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  46.       CONTROL-STRING-DIRECTIVE 3.
  47.      )
  48.    (FUNCTION CSD-V-OR-#-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  49.    (INLINE CSD-V-OR-#-P) CSD-V-OR-#-P
  50.    #Y(CSD-V-OR-#-P #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  51.       CONTROL-STRING-DIRECTIVE 4.
  52.      )
  53.    (FUNCTION CSD-COLON-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  54.    (INLINE CSD-COLON-P) CSD-COLON-P
  55.    #Y(CSD-COLON-P #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  56.       CONTROL-STRING-DIRECTIVE 5.
  57.      )
  58.    (FUNCTION CSD-ATSIGN-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  59.    (INLINE CSD-ATSIGN-P) CSD-ATSIGN-P
  60.    #Y(CSD-ATSIGN-P #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  61.       CONTROL-STRING-DIRECTIVE 6.
  62.      )
  63.    (FUNCTION CSD-DATA (CONTROL-STRING-DIRECTIVE) T) (INLINE CSD-DATA) CSD-DATA
  64.    #Y(CSD-DATA #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  65.       CONTROL-STRING-DIRECTIVE 7.
  66.      )
  67.    (FUNCTION CSD-CLAUSE-CHAIN (CONTROL-STRING-DIRECTIVE) T)
  68.    (INLINE CSD-CLAUSE-CHAIN) CSD-CLAUSE-CHAIN
  69.    #Y(CSD-CLAUSE-CHAIN #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  70.       CONTROL-STRING-DIRECTIVE 8.
  71.      )
  72.    SETF-EXPANDER -1.
  73.    #Y(SETF-CSD-TYPE
  74.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  75.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 1. THE FIXNUM
  76.      )
  77.    SETF %SET-DOCUMENTATION
  78.    #Y(SETF-CSD-CS-INDEX
  79.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  80.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 2. THE FIXNUM
  81.      )
  82.    #Y(SETF-CSD-PARM-LIST
  83.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  84.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 3. THE LIST
  85.      )
  86.    #Y(SETF-CSD-V-OR-#-P
  87.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  88.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 4. THE SYMBOL
  89.      )
  90.    #Y(SETF-CSD-COLON-P
  91.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  92.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 5. THE SYMBOL
  93.      )
  94.    #Y(SETF-CSD-ATSIGN-P
  95.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  96.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 6. THE SYMBOL
  97.      )
  98.    #Y(SETF-CSD-DATA #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
  99.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 7.
  100.      )
  101.    #Y(SETF-CSD-CLAUSE-CHAIN
  102.       #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
  103.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 8.
  104.      )
  105.    STRUCTURE STRUCTURE-PRINT
  106.   )
  107. #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01)
  108.    CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION
  109.   )
  110. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  111.    WHITESPACEP REMOVE-OLD-DEFINITIONS
  112.    #Y(WHITESPACEP #14Y(00 01 00 00 00 02 A9 D4 36 03 2F DC 19 02)
  113.       (#\Space #\Newline #\Newline #\Tab #\Return #\Page)
  114.   )  )
  115. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  116.    FORMAT-PARSE-CS REMOVE-OLD-DEFINITIONS
  117.    #Y(FORMAT-PARSE-CS
  118.       #609Y(00 04 00 00 00 05 AB 01 03 8B 06 1A 82 39 B1 78 63 04 14 D6 AB D9
  119.             AB 30 54 16 01 8A 06 82 3C 1A 82 31 B1 AD 77 35 03 14 23 00 27 AF
  120.             2C 01 EC 14 73 01 77 D3 07 D6 AA D7 D7 30 54 D6 AA D8 AF 30 54 D4
  121.             B2 36 06 9E EE 78 7B 04 1C 42 D6 AA D9 AF 30 54 AF 2C 01 EC 14 73
  122.             01 77 D3 07 D6 AA D7 D8 30 54 D6 AA D8 AF 30 54 D6 AA DA 5B 30 54
  123.             D6 AA DB 5B 30 54 D6 AA DC 5B 30 54 D6 AA DD 5B 30 54 D6 AA D9 5B
  124.             30 54 D6 AA DE 5B 30 54 1A 35 95 25 0D 80 DD CD 1A 05 AB 23 0E 79
  125.             CE 14 A8 D6 AC DA 30 53 72 D6 AC DA AB 30 54 16 02 D6 AA DB 5C 30
  126.             54 1A 80 71 5B D6 AB DA 30 53 72 D6 AB DA AB 30 54 16 01 7C 04 14
  127.             B2 6A 63 87 01 30 80 8C B1 AD 77 35 03 14 36 01 84 24 FF B4 B1 AD
  128.             36 02 5C 2F 84 3E 02 62 05 62 02 1B 07 B1 AD E5 AE 2B 04 0C AA D6
  129.             AB DA 30 53 72 D6 AB DA AB 30 54 16 01 1A 26 B1 AD D0 1A 80 56 7C
  130.             04 14 B2 6A 63 87 01 30 70 B1 AD 77 35 03 14 D6 AB DA 30 53 72 D6
  131.             AB DA AB 30 54 16 01 7C 04 AC B2 6A 63 87 01 30 2B B1 AD 77 35 03
  132.             25 13 39 D6 AA C6 1A 10 B1 AD 77 35 03 14 23 14 72 AB 24 15 27 D6
  133.             AA C7 14 5C 30 54 7C 04 14 B2 6A 63 88 01 30 62 B1 AD C9 14 2B 03
  134.             0C 8A 06 80 F6 1A 80 EB D6 AB D9 AB 30 54 1A 23 D6 AA DA 6A 53 6A
  135.             65 D6 AB DA AB 30 54 16 01 AB 69 2C 5D 16 36 03 2F E3 71 89 00 5C
  136.             B2 AE 5D 17 2B 03 0C 16 01 7C 04 95 25 18 80 AB B1 AD B1 98 25 19
  137.             10 03 1A 1A 0D 03 1B 1A 09 03 1C 1A 05 03 1D 1A 01 00 14 26 FE 4E
  138.             3E 02 62 08 62 04 1A 80 86 89 06 08 B1 AD 5D 1E AE 2B 04 0C AB AF
  139.             85 28 09 B1 AD 5D 1F AE B2 2B 05 0C D6 A9 DE B2 30 54 1A 80 78 AE
  140.             23 1B 0B AE 23 1D 07 B1 AD 5D 20 2B 03 0C D6 A9 DE B2 30 54 93 EA
  141.             1A 80 4A D6 AA DD 86 53 80 43 B1 AD 5D 22 2B 03 0C 1A 3A B1 78 63
  142.             04 1A 34 D6 AA D7 5D 21 30 54 D6 AA DC 85 53 5D D6 AA DD 86 53 16
  143.             D6 AA D7 D7 30 54 8E 04 D6 AB D8 AB 30 54 16 01 D6 AA D9 AF 30 54
  144.             90 23 B2 36 04 9C EC 86 7D 47 EE AC B2 6A 63 88 01 30 FD D2 8A 06
  145.             08 B1 AD 5D 24 B1 2B 04 0C AC B0 3C 02 19 0A
  146.            )
  147.       #\~ MAKE-CSD CONTROL-STRING-DIRECTIVE 1. 2. 7. 3. 4. 5. 6. 8.
  148.       "The control string terminates within a directive." FORMAT-ERROR
  149.       #S(HASH-TABLE EQ (#\@ . 184.) (#\: . 166.) (#\, . 35.) (#\# . 5.)
  150.          (#\v . 5.) (#\V . 5.) (#\' . 118.) (#\- . 73.) (#\+ . 73.)
  151.         )
  152.       #\# :ARG-COUNT :NEXT-ARG "~A must introduce a number."
  153.       "The control string terminates in the middle of a parameter."
  154.       #S(HASH-TABLE EQ (#\@ . 19.) (#\: . 1.) (#\, . -115.)) #\: #\@
  155.       ((#\A . FORMAT-ASCII) (#